home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 September / 64er_Magazin_92-09_1992_Markt__Technik_de.d64 / basic sinus-prog (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  131b  |  8 lines
  1. 100 fora=0to127
  2. 110 q=136+136*sin(a/(64/(NULL)))
  3. 120 poke12800+a,qand7:poke12928+a,q/8
  4. 130 next
  5. 200 fora=0to180
  6. 210 poke13056+a,100+100*sin(a/(90/(NULL)))
  7. 220 next
  8.